home *** CD-ROM | disk | FTP | other *** search
/ Power Pack / Power_Pack_5_1992_Alfons_Mittelmeyer_de.d64 / funktionen c64 (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  1KB  |  51 lines
  1. 10 rem funktionen =============c64
  2. 20 rem (p) power pack
  3. 30 rem ===========================
  4. 40 rem (c) by michael grobe   v3.5
  5. 50 rem
  6. 60 rem (v)    a. mittelmeyer  v2.0
  7. 70 rem
  8. 80 rem c64
  9. 90 rem ==========================
  10. 91 sys57812"supergraphics.mc",8,0:poke780,0
  11. 92 poke782,191:poke781,254:sys65493
  12. 100 printchr$(147);:goto419
  13. 110 printchr$(147):print:print
  14. 120 printtab(8)"funktionsgraphen c64"
  15. 130 printtab(8)"--------------------"
  16. 140 print:print:print
  17. 150 printtab(9)"von michael grobe "
  18. 160 print"----------------------------------------":print
  19. 170 print"genauigkeit"spc(29)"(0.1 oder 0.01 oder 0.001):";:inputk
  20. 180 ifk<>0.1andk<>0.01andk<>0.001then170
  21. 190 print"start x"spc(2)"(-16 bis 16)"spc(5)":";:inputxs:ifxs<-16orxs>16then190
  22. 200 print"ziel"spc(2)"x"spc(2)"(-16 bis 16)"spc(5)":";:inputzz:ifzz<-16orzz>16then200
  23. 210 ifzz<xsthenprint"ziel x muss groesser sein als start x !":goto200
  24. 220 print"loeschen (0=n 1=j)"spc(8)":";:inputl:ifl<>1andl<>0thengoto220
  25. 230 x=xs:y=0:ifl=1thensys50941
  26. 240 sys50906,1,0:sys51090
  27. 250 sys49415,0,100,319,100
  28. 260 sys49415,160,0,160,199
  29. 270 fori=1to20
  30. 280 sys49415,159,200-10*i,161,200-10*i:next
  31. 290 fori=0to31
  32. 300 sys49415,10*i,99,10*i,101:next
  33. 310 ifx>zzthen410
  34. 320 rem =========================
  35. 330 y=5*sin(x/5)
  36. 340 rem =========================
  37. 350 a=160+(x*10)
  38. 360 b=100-(y*10)
  39. 370 ifb<0orb>255then390
  40. 380 sys49264,a,b
  41. 390 x=x+k
  42. 400 goto310
  43. 410 sys50088,1,1,"ok":gosub421:sys50088,1,1,"  ":sys51115
  44. 419 printchr$(147):print:print"run110":poke198,2:poke631,19
  45. 420 poke632,17:printchr$(19);:list330:end
  46. 421 getm$:ifm$=""then421
  47. 422 return
  48. 430 rem =========================
  49. 440 rem  p r o g r a m m e n d e
  50. 450 rem =========================
  51.